
main = do
    putStrLn "Hello, what's your name?"
    inStr <- getLine 
    putStrLn $ "Welcom " ++ inStr ++ "!"